home *** CD-ROM | disk | FTP | other *** search
- REM $INCLUDE: 'fastgraf.bi'
-
- DEFINT A-Z
-
- DIM AuxCode AS STRING*1
- DIM KeyCode AS STRING*1
-
- Status = FGinitjoy(1)
- Status = FGinitjoy(2)
-
- WHILE INKEY$ = ""
- FGintjoy 1, KeyCode, AuxCode
- PRINT USING "1: ## ##"; ASC(KeyCode), ASC(AuxCode)
- FGintjoy 2, KeyCode, AuxCode
- PRINT USING "2: ## ##"; ASC(KeyCode), ASC(AuxCode)
- PRINT
- FGwaitfor 9
- WEND
-
- END